3.2.59 \(\int \frac {A+B x^3}{\sqrt {x} (a+b x^3)} \, dx\) [159]

Optimal. Leaf size=268 \[ \frac {2 B \sqrt {x}}{b}-\frac {(A b-a B) \tan ^{-1}\left (\sqrt {3}-\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}+\frac {(A b-a B) \tan ^{-1}\left (\sqrt {3}+\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}+\frac {2 (A b-a B) \tan ^{-1}\left (\frac {\sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}-\frac {(A b-a B) \log \left (\sqrt [3]{a}-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \log \left (\sqrt [3]{a}+\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}} \]

[Out]

2/3*(A*b-B*a)*arctan(b^(1/6)*x^(1/2)/a^(1/6))/a^(5/6)/b^(7/6)+1/3*(A*b-B*a)*arctan(-3^(1/2)+2*b^(1/6)*x^(1/2)/
a^(1/6))/a^(5/6)/b^(7/6)+1/3*(A*b-B*a)*arctan(3^(1/2)+2*b^(1/6)*x^(1/2)/a^(1/6))/a^(5/6)/b^(7/6)-1/6*(A*b-B*a)
*ln(a^(1/3)+b^(1/3)*x-a^(1/6)*b^(1/6)*3^(1/2)*x^(1/2))/a^(5/6)/b^(7/6)*3^(1/2)+1/6*(A*b-B*a)*ln(a^(1/3)+b^(1/3
)*x+a^(1/6)*b^(1/6)*3^(1/2)*x^(1/2))/a^(5/6)/b^(7/6)*3^(1/2)+2*B*x^(1/2)/b

________________________________________________________________________________________

Rubi [A]
time = 0.31, antiderivative size = 268, normalized size of antiderivative = 1.00, number of steps used = 12, number of rules used = 8, integrand size = 22, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.364, Rules used = {470, 335, 215, 648, 632, 210, 642, 211} \begin {gather*} -\frac {(A b-a B) \text {ArcTan}\left (\sqrt {3}-\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}+\frac {(A b-a B) \text {ArcTan}\left (\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}+\sqrt {3}\right )}{3 a^{5/6} b^{7/6}}+\frac {2 (A b-a B) \text {ArcTan}\left (\frac {\sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}-\frac {(A b-a B) \log \left (-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{a}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \log \left (\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{a}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {2 B \sqrt {x}}{b} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(A + B*x^3)/(Sqrt[x]*(a + b*x^3)),x]

[Out]

(2*B*Sqrt[x])/b - ((A*b - a*B)*ArcTan[Sqrt[3] - (2*b^(1/6)*Sqrt[x])/a^(1/6)])/(3*a^(5/6)*b^(7/6)) + ((A*b - a*
B)*ArcTan[Sqrt[3] + (2*b^(1/6)*Sqrt[x])/a^(1/6)])/(3*a^(5/6)*b^(7/6)) + (2*(A*b - a*B)*ArcTan[(b^(1/6)*Sqrt[x]
)/a^(1/6)])/(3*a^(5/6)*b^(7/6)) - ((A*b - a*B)*Log[a^(1/3) - Sqrt[3]*a^(1/6)*b^(1/6)*Sqrt[x] + b^(1/3)*x])/(2*
Sqrt[3]*a^(5/6)*b^(7/6)) + ((A*b - a*B)*Log[a^(1/3) + Sqrt[3]*a^(1/6)*b^(1/6)*Sqrt[x] + b^(1/3)*x])/(2*Sqrt[3]
*a^(5/6)*b^(7/6))

Rule 210

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(-(Rt[-a, 2]*Rt[-b, 2])^(-1))*ArcTan[Rt[-b, 2]*(x/Rt[-a, 2])
], x] /; FreeQ[{a, b}, x] && PosQ[a/b] && (LtQ[a, 0] || LtQ[b, 0])

Rule 211

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[a/b, 2]/a)*ArcTan[x/Rt[a/b, 2]], x] /; FreeQ[{a, b}, x]
&& PosQ[a/b]

Rule 215

Int[((a_) + (b_.)*(x_)^(n_))^(-1), x_Symbol] :> Module[{r = Numerator[Rt[a/b, n]], s = Denominator[Rt[a/b, n]]
, k, u, v}, Simp[u = Int[(r - s*Cos[(2*k - 1)*(Pi/n)]*x)/(r^2 - 2*r*s*Cos[(2*k - 1)*(Pi/n)]*x + s^2*x^2), x] +
Int[(r + s*Cos[(2*k - 1)*(Pi/n)]*x)/(r^2 + 2*r*s*Cos[(2*k - 1)*(Pi/n)]*x + s^2*x^2), x]; 2*(r^2/(a*n))*Int[1/
(r^2 + s^2*x^2), x] + Dist[2*(r/(a*n)), Sum[u, {k, 1, (n - 2)/4}], x], x]] /; FreeQ[{a, b}, x] && IGtQ[(n - 2)
/4, 0] && PosQ[a/b]

Rule 335

Int[((c_.)*(x_))^(m_)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> With[{k = Denominator[m]}, Dist[k/c, Subst[I
nt[x^(k*(m + 1) - 1)*(a + b*(x^(k*n)/c^n))^p, x], x, (c*x)^(1/k)], x]] /; FreeQ[{a, b, c, p}, x] && IGtQ[n, 0]
&& FractionQ[m] && IntBinomialQ[a, b, c, n, m, p, x]

Rule 470

Int[((e_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_.)*((c_) + (d_.)*(x_)^(n_)), x_Symbol] :> Simp[d*(e*x)^(m +
1)*((a + b*x^n)^(p + 1)/(b*e*(m + n*(p + 1) + 1))), x] - Dist[(a*d*(m + 1) - b*c*(m + n*(p + 1) + 1))/(b*(m +
n*(p + 1) + 1)), Int[(e*x)^m*(a + b*x^n)^p, x], x] /; FreeQ[{a, b, c, d, e, m, n, p}, x] && NeQ[b*c - a*d, 0]
&& NeQ[m + n*(p + 1) + 1, 0]

Rule 632

Int[((a_.) + (b_.)*(x_) + (c_.)*(x_)^2)^(-1), x_Symbol] :> Dist[-2, Subst[Int[1/Simp[b^2 - 4*a*c - x^2, x], x]
, x, b + 2*c*x], x] /; FreeQ[{a, b, c}, x] && NeQ[b^2 - 4*a*c, 0]

Rule 642

Int[((d_) + (e_.)*(x_))/((a_.) + (b_.)*(x_) + (c_.)*(x_)^2), x_Symbol] :> Simp[d*(Log[RemoveContent[a + b*x +
c*x^2, x]]/b), x] /; FreeQ[{a, b, c, d, e}, x] && EqQ[2*c*d - b*e, 0]

Rule 648

Int[((d_.) + (e_.)*(x_))/((a_) + (b_.)*(x_) + (c_.)*(x_)^2), x_Symbol] :> Dist[(2*c*d - b*e)/(2*c), Int[1/(a +
b*x + c*x^2), x], x] + Dist[e/(2*c), Int[(b + 2*c*x)/(a + b*x + c*x^2), x], x] /; FreeQ[{a, b, c, d, e}, x] &
& NeQ[2*c*d - b*e, 0] && NeQ[b^2 - 4*a*c, 0] &&  !NiceSqrtQ[b^2 - 4*a*c]

Rubi steps

\begin {align*} \int \frac {A+B x^3}{\sqrt {x} \left (a+b x^3\right )} \, dx &=\frac {2 B \sqrt {x}}{b}-\frac {\left (2 \left (-\frac {A b}{2}+\frac {a B}{2}\right )\right ) \int \frac {1}{\sqrt {x} \left (a+b x^3\right )} \, dx}{b}\\ &=\frac {2 B \sqrt {x}}{b}-\frac {\left (4 \left (-\frac {A b}{2}+\frac {a B}{2}\right )\right ) \text {Subst}\left (\int \frac {1}{a+b x^6} \, dx,x,\sqrt {x}\right )}{b}\\ &=\frac {2 B \sqrt {x}}{b}+\frac {(2 (A b-a B)) \text {Subst}\left (\int \frac {\sqrt [6]{a}-\frac {1}{2} \sqrt {3} \sqrt [6]{b} x}{\sqrt [3]{a}-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} x+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{3 a^{5/6} b}+\frac {(2 (A b-a B)) \text {Subst}\left (\int \frac {\sqrt [6]{a}+\frac {1}{2} \sqrt {3} \sqrt [6]{b} x}{\sqrt [3]{a}+\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} x+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{3 a^{5/6} b}+\frac {(2 (A b-a B)) \text {Subst}\left (\int \frac {1}{\sqrt [3]{a}+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{3 a^{2/3} b}\\ &=\frac {2 B \sqrt {x}}{b}+\frac {2 (A b-a B) \tan ^{-1}\left (\frac {\sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}-\frac {(A b-a B) \text {Subst}\left (\int \frac {-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b}+2 \sqrt [3]{b} x}{\sqrt [3]{a}-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} x+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \text {Subst}\left (\int \frac {\sqrt {3} \sqrt [6]{a} \sqrt [6]{b}+2 \sqrt [3]{b} x}{\sqrt [3]{a}+\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} x+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \text {Subst}\left (\int \frac {1}{\sqrt [3]{a}-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} x+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{6 a^{2/3} b}+\frac {(A b-a B) \text {Subst}\left (\int \frac {1}{\sqrt [3]{a}+\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} x+\sqrt [3]{b} x^2} \, dx,x,\sqrt {x}\right )}{6 a^{2/3} b}\\ &=\frac {2 B \sqrt {x}}{b}+\frac {2 (A b-a B) \tan ^{-1}\left (\frac {\sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}-\frac {(A b-a B) \log \left (\sqrt [3]{a}-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \log \left (\sqrt [3]{a}+\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \text {Subst}\left (\int \frac {1}{-\frac {1}{3}-x^2} \, dx,x,1-\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt {3} \sqrt [6]{a}}\right )}{3 \sqrt {3} a^{5/6} b^{7/6}}-\frac {(A b-a B) \text {Subst}\left (\int \frac {1}{-\frac {1}{3}-x^2} \, dx,x,1+\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt {3} \sqrt [6]{a}}\right )}{3 \sqrt {3} a^{5/6} b^{7/6}}\\ &=\frac {2 B \sqrt {x}}{b}-\frac {(A b-a B) \tan ^{-1}\left (\sqrt {3}-\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}+\frac {(A b-a B) \tan ^{-1}\left (\sqrt {3}+\frac {2 \sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}+\frac {2 (A b-a B) \tan ^{-1}\left (\frac {\sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )}{3 a^{5/6} b^{7/6}}-\frac {(A b-a B) \log \left (\sqrt [3]{a}-\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}+\frac {(A b-a B) \log \left (\sqrt [3]{a}+\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}+\sqrt [3]{b} x\right )}{2 \sqrt {3} a^{5/6} b^{7/6}}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.18, size = 152, normalized size = 0.57 \begin {gather*} \frac {6 a^{5/6} \sqrt [6]{b} B \sqrt {x}+2 (A b-a B) \tan ^{-1}\left (\frac {\sqrt [6]{b} \sqrt {x}}{\sqrt [6]{a}}\right )-(A b-a B) \tan ^{-1}\left (\frac {\sqrt [3]{a}-\sqrt [3]{b} x}{\sqrt [6]{a} \sqrt [6]{b} \sqrt {x}}\right )+\sqrt {3} (A b-a B) \tanh ^{-1}\left (\frac {\sqrt {3} \sqrt [6]{a} \sqrt [6]{b} \sqrt {x}}{\sqrt [3]{a}+\sqrt [3]{b} x}\right )}{3 a^{5/6} b^{7/6}} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(A + B*x^3)/(Sqrt[x]*(a + b*x^3)),x]

[Out]

(6*a^(5/6)*b^(1/6)*B*Sqrt[x] + 2*(A*b - a*B)*ArcTan[(b^(1/6)*Sqrt[x])/a^(1/6)] - (A*b - a*B)*ArcTan[(a^(1/3) -
b^(1/3)*x)/(a^(1/6)*b^(1/6)*Sqrt[x])] + Sqrt[3]*(A*b - a*B)*ArcTanh[(Sqrt[3]*a^(1/6)*b^(1/6)*Sqrt[x])/(a^(1/3
) + b^(1/3)*x)])/(3*a^(5/6)*b^(7/6))

________________________________________________________________________________________

Maple [A]
time = 0.36, size = 191, normalized size = 0.71

method	result	size
derivativedivides	\(\frac {2 B \sqrt {x}}{b}+\frac {2 \left (\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {\sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{3 a}-\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}-x -\left (\frac {a}{b}\right )^{\frac {1}{3}}\right )}{12 a}+\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (-\sqrt {3}+\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{6 a}+\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (x +\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}+\left (\frac {a}{b}\right )^{\frac {1}{3}}\right )}{12 a}+\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}+\sqrt {3}\right )}{6 a}\right ) \left (A b -B a \right )}{b}\)	\(191\)
default	\(\frac {2 B \sqrt {x}}{b}+\frac {2 \left (\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {\sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{3 a}-\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}-x -\left (\frac {a}{b}\right )^{\frac {1}{3}}\right )}{12 a}+\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (-\sqrt {3}+\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{6 a}+\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (x +\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}+\left (\frac {a}{b}\right )^{\frac {1}{3}}\right )}{12 a}+\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}+\sqrt {3}\right )}{6 a}\right ) \left (A b -B a \right )}{b}\)	\(191\)
risch	\(\frac {2 B \sqrt {x}}{b}+\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (x +\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}+\left (\frac {a}{b}\right )^{\frac {1}{3}}\right ) A}{6 a}-\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (x +\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}+\left (\frac {a}{b}\right )^{\frac {1}{3}}\right ) B}{6 b}+\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}+\sqrt {3}\right ) A}{3 a}-\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}+\sqrt {3}\right ) B}{3 b}-\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}-x -\left (\frac {a}{b}\right )^{\frac {1}{3}}\right ) A}{6 a}+\frac {\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \ln \left (\sqrt {3}\, \left (\frac {a}{b}\right )^{\frac {1}{6}} \sqrt {x}-x -\left (\frac {a}{b}\right )^{\frac {1}{3}}\right ) B}{6 b}+\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (-\sqrt {3}+\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right ) A}{3 a}-\frac {\left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (-\sqrt {3}+\frac {2 \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right ) B}{3 b}+\frac {2 \left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {\sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right ) A}{3 a}-\frac {2 \left (\frac {a}{b}\right )^{\frac {1}{6}} \arctan \left (\frac {\sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right ) B}{3 b}\)	\(353\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((B*x^3+A)/(b*x^3+a)/x^(1/2),x,method=_RETURNVERBOSE)

[Out]

2*B*x^(1/2)/b+2*(1/3/a*(a/b)^(1/6)*arctan(x^(1/2)/(a/b)^(1/6))-1/12/a*3^(1/2)*(a/b)^(1/6)*ln(3^(1/2)*(a/b)^(1/
6)*x^(1/2)-x-(a/b)^(1/3))+1/6/a*(a/b)^(1/6)*arctan(-3^(1/2)+2*x^(1/2)/(a/b)^(1/6))+1/12/a*3^(1/2)*(a/b)^(1/6)*
ln(x+3^(1/2)*(a/b)^(1/6)*x^(1/2)+(a/b)^(1/3))+1/6/a*(a/b)^(1/6)*arctan(2*x^(1/2)/(a/b)^(1/6)+3^(1/2)))*(A*b-B*
a)/b

________________________________________________________________________________________

Maxima [A]
time = 0.51, size = 278, normalized size = 1.04 \begin {gather*} \frac {2 \, B \sqrt {x}}{b} - \frac {\frac {\sqrt {3} {\left (B a - A b\right )} \log \left (\sqrt {3} a^{\frac {1}{6}} b^{\frac {1}{6}} \sqrt {x} + b^{\frac {1}{3}} x + a^{\frac {1}{3}}\right )}{a^{\frac {5}{6}} b^{\frac {1}{6}}} - \frac {\sqrt {3} {\left (B a - A b\right )} \log \left (-\sqrt {3} a^{\frac {1}{6}} b^{\frac {1}{6}} \sqrt {x} + b^{\frac {1}{3}} x + a^{\frac {1}{3}}\right )}{a^{\frac {5}{6}} b^{\frac {1}{6}}} + \frac {4 \, {\left (B a b^{\frac {1}{3}} - A b^{\frac {4}{3}}\right )} \arctan \left (\frac {b^{\frac {1}{3}} \sqrt {x}}{\sqrt {a^{\frac {1}{3}} b^{\frac {1}{3}}}}\right )}{a^{\frac {2}{3}} b^{\frac {1}{3}} \sqrt {a^{\frac {1}{3}} b^{\frac {1}{3}}}} + \frac {2 \, {\left (B a^{\frac {4}{3}} b^{\frac {1}{3}} - A a^{\frac {1}{3}} b^{\frac {4}{3}}\right )} \arctan \left (\frac {\sqrt {3} a^{\frac {1}{6}} b^{\frac {1}{6}} + 2 \, b^{\frac {1}{3}} \sqrt {x}}{\sqrt {a^{\frac {1}{3}} b^{\frac {1}{3}}}}\right )}{a b^{\frac {1}{3}} \sqrt {a^{\frac {1}{3}} b^{\frac {1}{3}}}} + \frac {2 \, {\left (B a^{\frac {4}{3}} b^{\frac {1}{3}} - A a^{\frac {1}{3}} b^{\frac {4}{3}}\right )} \arctan \left (-\frac {\sqrt {3} a^{\frac {1}{6}} b^{\frac {1}{6}} - 2 \, b^{\frac {1}{3}} \sqrt {x}}{\sqrt {a^{\frac {1}{3}} b^{\frac {1}{3}}}}\right )}{a b^{\frac {1}{3}} \sqrt {a^{\frac {1}{3}} b^{\frac {1}{3}}}}}{6 \, b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((B*x^3+A)/(b*x^3+a)/x^(1/2),x, algorithm="maxima")

[Out]

2*B*sqrt(x)/b - 1/6*(sqrt(3)*(B*a - A*b)*log(sqrt(3)*a^(1/6)*b^(1/6)*sqrt(x) + b^(1/3)*x + a^(1/3))/(a^(5/6)*b
^(1/6)) - sqrt(3)*(B*a - A*b)*log(-sqrt(3)*a^(1/6)*b^(1/6)*sqrt(x) + b^(1/3)*x + a^(1/3))/(a^(5/6)*b^(1/6)) +
4*(B*a*b^(1/3) - A*b^(4/3))*arctan(b^(1/3)*sqrt(x)/sqrt(a^(1/3)*b^(1/3)))/(a^(2/3)*b^(1/3)*sqrt(a^(1/3)*b^(1/3
))) + 2*(B*a^(4/3)*b^(1/3) - A*a^(1/3)*b^(4/3))*arctan((sqrt(3)*a^(1/6)*b^(1/6) + 2*b^(1/3)*sqrt(x))/sqrt(a^(1
/3)*b^(1/3)))/(a*b^(1/3)*sqrt(a^(1/3)*b^(1/3))) + 2*(B*a^(4/3)*b^(1/3) - A*a^(1/3)*b^(4/3))*arctan(-(sqrt(3)*a
^(1/6)*b^(1/6) - 2*b^(1/3)*sqrt(x))/sqrt(a^(1/3)*b^(1/3)))/(a*b^(1/3)*sqrt(a^(1/3)*b^(1/3))))/b

________________________________________________________________________________________

Fricas [B] Leaf count of result is larger than twice the leaf count of optimal. 2424 vs. \(2 (188) = 376\).
time = 1.68, size = 2424, normalized size = 9.04 \begin {gather*} \text {Too large to display} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((B*x^3+A)/(b*x^3+a)/x^(1/2),x, algorithm="fricas")

[Out]

1/6*(4*sqrt(3)*b*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6
*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6)*arctan(1/3*(2*sqrt(3)*sqrt(a^2*b^2*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^
2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/3) + (B^2*a^2
- 2*A*B*a*b + A^2*b^2)*x + (B*a^2*b - A*a*b^2)*sqrt(x)*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A
^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6))*a^4*b^6*(-(B^6*a^6 - 6*A*B^5*
a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(5/
6) + 2*sqrt(3)*(B*a^5*b^6 - A*a^4*b^7)*sqrt(x)*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^
3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(5/6) - sqrt(3)*(B^6*a^6 - 6*A*B^5*a^5*b + 15
*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6))/(B^6*a^6 - 6*A*B^5*a^5*
b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)) + 4*sqrt(3)*b*(-(
B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b
^6)/(a^5*b^7))^(1/6)*arctan(1/3*(2*sqrt(3)*sqrt(a^2*b^2*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A
^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/3) + (B^2*a^2 - 2*A*B*a*b + A^2*b
^2)*x - (B*a^2*b - A*a*b^2)*sqrt(x)*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*
A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6))*a^4*b^6*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a
^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(5/6) + 2*sqrt(3)*(B*a^
5*b^6 - A*a^4*b^7)*sqrt(x)*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a
^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(5/6) + sqrt(3)*(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 2
0*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6))/(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b
^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)) - b*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A
^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6)*log(4*a^2
*b^2*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5
+ A^6*b^6)/(a^5*b^7))^(1/3) + 4*(B^2*a^2 - 2*A*B*a*b + A^2*b^2)*x + 4*(B*a^2*b - A*a*b^2)*sqrt(x)*(-(B^6*a^6
- 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5
*b^7))^(1/6)) + b*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 -
6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6)*log(4*a^2*b^2*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A
^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/3) + 4*(B^2*a^2 - 2*A*B*a*b + A^2
*b^2)*x - 4*(B*a^2*b - A*a*b^2)*sqrt(x)*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 +
15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6)) + 2*b*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4
*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6)*log(a*b*(-(B^6*
a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/
(a^5*b^7))^(1/6) - (B*a - A*b)*sqrt(x)) - 2*b*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3
*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6)*log(-a*b*(-(B^6*a^6 - 6*A*B^5*a^5*b + 15
*A^2*B^4*a^4*b^2 - 20*A^3*B^3*a^3*b^3 + 15*A^4*B^2*a^2*b^4 - 6*A^5*B*a*b^5 + A^6*b^6)/(a^5*b^7))^(1/6) - (B*a
- A*b)*sqrt(x)) + 12*B*sqrt(x))/b

________________________________________________________________________________________

Sympy [B] Leaf count of result is larger than twice the leaf count of optimal. 558 vs. \(2 (257) = 514\).
time = 6.60, size = 558, normalized size = 2.08 \begin {gather*} \begin {cases} \tilde {\infty } \left (- \frac {2 A}{5 x^{\frac {5}{2}}} + 2 B \sqrt {x}\right ) & \text {for}\: a = 0 \wedge b = 0 \\\frac {- \frac {2 A}{5 x^{\frac {5}{2}}} + 2 B \sqrt {x}}{b} & \text {for}\: a = 0 \\\frac {2 A \sqrt {x} + \frac {2 B x^{\frac {7}{2}}}{7}}{a} & \text {for}\: b = 0 \\- \frac {A \sqrt [6]{- \frac {a}{b}} \log {\left (\sqrt {x} - \sqrt [6]{- \frac {a}{b}} \right )}}{3 a} + \frac {A \sqrt [6]{- \frac {a}{b}} \log {\left (\sqrt {x} + \sqrt [6]{- \frac {a}{b}} \right )}}{3 a} - \frac {A \sqrt [6]{- \frac {a}{b}} \log {\left (- 4 \sqrt {x} \sqrt [6]{- \frac {a}{b}} + 4 x + 4 \sqrt [3]{- \frac {a}{b}} \right )}}{6 a} + \frac {A \sqrt [6]{- \frac {a}{b}} \log {\left (4 \sqrt {x} \sqrt [6]{- \frac {a}{b}} + 4 x + 4 \sqrt [3]{- \frac {a}{b}} \right )}}{6 a} + \frac {\sqrt {3} A \sqrt [6]{- \frac {a}{b}} \operatorname {atan}{\left (\frac {2 \sqrt {3} \sqrt {x}}{3 \sqrt [6]{- \frac {a}{b}}} - \frac {\sqrt {3}}{3} \right )}}{3 a} + \frac {\sqrt {3} A \sqrt [6]{- \frac {a}{b}} \operatorname {atan}{\left (\frac {2 \sqrt {3} \sqrt {x}}{3 \sqrt [6]{- \frac {a}{b}}} + \frac {\sqrt {3}}{3} \right )}}{3 a} + \frac {2 B \sqrt {x}}{b} + \frac {B \sqrt [6]{- \frac {a}{b}} \log {\left (\sqrt {x} - \sqrt [6]{- \frac {a}{b}} \right )}}{3 b} - \frac {B \sqrt [6]{- \frac {a}{b}} \log {\left (\sqrt {x} + \sqrt [6]{- \frac {a}{b}} \right )}}{3 b} + \frac {B \sqrt [6]{- \frac {a}{b}} \log {\left (- 4 \sqrt {x} \sqrt [6]{- \frac {a}{b}} + 4 x + 4 \sqrt [3]{- \frac {a}{b}} \right )}}{6 b} - \frac {B \sqrt [6]{- \frac {a}{b}} \log {\left (4 \sqrt {x} \sqrt [6]{- \frac {a}{b}} + 4 x + 4 \sqrt [3]{- \frac {a}{b}} \right )}}{6 b} - \frac {\sqrt {3} B \sqrt [6]{- \frac {a}{b}} \operatorname {atan}{\left (\frac {2 \sqrt {3} \sqrt {x}}{3 \sqrt [6]{- \frac {a}{b}}} - \frac {\sqrt {3}}{3} \right )}}{3 b} - \frac {\sqrt {3} B \sqrt [6]{- \frac {a}{b}} \operatorname {atan}{\left (\frac {2 \sqrt {3} \sqrt {x}}{3 \sqrt [6]{- \frac {a}{b}}} + \frac {\sqrt {3}}{3} \right )}}{3 b} & \text {otherwise} \end {cases} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((B*x**3+A)/(b*x**3+a)/x**(1/2),x)

[Out]

Piecewise((zoo*(-2*A/(5*x**(5/2)) + 2*B*sqrt(x)), Eq(a, 0) & Eq(b, 0)), ((-2*A/(5*x**(5/2)) + 2*B*sqrt(x))/b,
Eq(a, 0)), ((2*A*sqrt(x) + 2*B*x**(7/2)/7)/a, Eq(b, 0)), (-A*(-a/b)**(1/6)*log(sqrt(x) - (-a/b)**(1/6))/(3*a)
+ A*(-a/b)**(1/6)*log(sqrt(x) + (-a/b)**(1/6))/(3*a) - A*(-a/b)**(1/6)*log(-4*sqrt(x)*(-a/b)**(1/6) + 4*x + 4*
(-a/b)**(1/3))/(6*a) + A*(-a/b)**(1/6)*log(4*sqrt(x)*(-a/b)**(1/6) + 4*x + 4*(-a/b)**(1/3))/(6*a) + sqrt(3)*A*
(-a/b)**(1/6)*atan(2*sqrt(3)*sqrt(x)/(3*(-a/b)**(1/6)) - sqrt(3)/3)/(3*a) + sqrt(3)*A*(-a/b)**(1/6)*atan(2*sqr
t(3)*sqrt(x)/(3*(-a/b)**(1/6)) + sqrt(3)/3)/(3*a) + 2*B*sqrt(x)/b + B*(-a/b)**(1/6)*log(sqrt(x) - (-a/b)**(1/6
))/(3*b) - B*(-a/b)**(1/6)*log(sqrt(x) + (-a/b)**(1/6))/(3*b) + B*(-a/b)**(1/6)*log(-4*sqrt(x)*(-a/b)**(1/6) +
4*x + 4*(-a/b)**(1/3))/(6*b) - B*(-a/b)**(1/6)*log(4*sqrt(x)*(-a/b)**(1/6) + 4*x + 4*(-a/b)**(1/3))/(6*b) - s
qrt(3)*B*(-a/b)**(1/6)*atan(2*sqrt(3)*sqrt(x)/(3*(-a/b)**(1/6)) - sqrt(3)/3)/(3*b) - sqrt(3)*B*(-a/b)**(1/6)*a
tan(2*sqrt(3)*sqrt(x)/(3*(-a/b)**(1/6)) + sqrt(3)/3)/(3*b), True))

________________________________________________________________________________________

Giac [A]
time = 0.53, size = 280, normalized size = 1.04 \begin {gather*} \frac {2 \, B \sqrt {x}}{b} - \frac {\sqrt {3} {\left (\left (a b^{5}\right )^{\frac {1}{6}} B a - \left (a b^{5}\right )^{\frac {1}{6}} A b\right )} \log \left (\sqrt {3} \sqrt {x} \left (\frac {a}{b}\right )^{\frac {1}{6}} + x + \left (\frac {a}{b}\right )^{\frac {1}{3}}\right )}{6 \, a b^{2}} + \frac {\sqrt {3} {\left (\left (a b^{5}\right )^{\frac {1}{6}} B a - \left (a b^{5}\right )^{\frac {1}{6}} A b\right )} \log \left (-\sqrt {3} \sqrt {x} \left (\frac {a}{b}\right )^{\frac {1}{6}} + x + \left (\frac {a}{b}\right )^{\frac {1}{3}}\right )}{6 \, a b^{2}} - \frac {{\left (\left (a b^{5}\right )^{\frac {1}{6}} B a - \left (a b^{5}\right )^{\frac {1}{6}} A b\right )} \arctan \left (\frac {\sqrt {3} \left (\frac {a}{b}\right )^{\frac {1}{6}} + 2 \, \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{3 \, a b^{2}} - \frac {{\left (\left (a b^{5}\right )^{\frac {1}{6}} B a - \left (a b^{5}\right )^{\frac {1}{6}} A b\right )} \arctan \left (-\frac {\sqrt {3} \left (\frac {a}{b}\right )^{\frac {1}{6}} - 2 \, \sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{3 \, a b^{2}} - \frac {2 \, {\left (\left (a b^{5}\right )^{\frac {1}{6}} B a - \left (a b^{5}\right )^{\frac {1}{6}} A b\right )} \arctan \left (\frac {\sqrt {x}}{\left (\frac {a}{b}\right )^{\frac {1}{6}}}\right )}{3 \, a b^{2}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((B*x^3+A)/(b*x^3+a)/x^(1/2),x, algorithm="giac")

[Out]

2*B*sqrt(x)/b - 1/6*sqrt(3)*((a*b^5)^(1/6)*B*a - (a*b^5)^(1/6)*A*b)*log(sqrt(3)*sqrt(x)*(a/b)^(1/6) + x + (a/b
)^(1/3))/(a*b^2) + 1/6*sqrt(3)*((a*b^5)^(1/6)*B*a - (a*b^5)^(1/6)*A*b)*log(-sqrt(3)*sqrt(x)*(a/b)^(1/6) + x +
(a/b)^(1/3))/(a*b^2) - 1/3*((a*b^5)^(1/6)*B*a - (a*b^5)^(1/6)*A*b)*arctan((sqrt(3)*(a/b)^(1/6) + 2*sqrt(x))/(a
/b)^(1/6))/(a*b^2) - 1/3*((a*b^5)^(1/6)*B*a - (a*b^5)^(1/6)*A*b)*arctan(-(sqrt(3)*(a/b)^(1/6) - 2*sqrt(x))/(a/
b)^(1/6))/(a*b^2) - 2/3*((a*b^5)^(1/6)*B*a - (a*b^5)^(1/6)*A*b)*arctan(sqrt(x)/(a/b)^(1/6))/(a*b^2)

________________________________________________________________________________________

Mupad [B]
time = 2.88, size = 1915, normalized size = 7.15 \begin {gather*} \text {Too large to display} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((A + B*x^3)/(x^(1/2)*(a + b*x^3)),x)

[Out]

(2*B*x^(1/2))/b + (atan((((x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*
B^3*a^3*b^2) - ((A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)
^(5/6)*b^(7/6)))*(A*b - B*a)*1i)/(3*(-a)^(5/6)*b^(7/6)) + ((x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a
^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) + ((A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*
b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6)))*(A*b - B*a)*1i)/(3*(-a)^(5/6)*b^(7/6)))/(((x^(1/2)*(96*A^4*b
^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) - ((A*b - B*a)*(288*A^3*a*b^5 -
288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6)))*(A*b - B*a))/(3*(-a)^(5/6)*
b^(7/6)) - ((x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) +
((A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6)
))*(A*b - B*a))/(3*(-a)^(5/6)*b^(7/6))))*(A*b - B*a)*2i)/(3*(-a)^(5/6)*b^(7/6)) + (atan(((((3^(1/2)*1i)/2 - 1/
2)*(A*b - B*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2
) - (((3^(1/2)*1i)/2 - 1/2)*(A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b
^4))/(3*(-a)^(5/6)*b^(7/6)))*1i)/(3*(-a)^(5/6)*b^(7/6)) + (((3^(1/2)*1i)/2 - 1/2)*(A*b - B*a)*(x^(1/2)*(96*A^4
*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) + (((3^(1/2)*1i)/2 - 1/2)*(A*
b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6)))*1i
)/(3*(-a)^(5/6)*b^(7/6)))/((((3^(1/2)*1i)/2 - 1/2)*(A*b - B*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B
^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) - (((3^(1/2)*1i)/2 - 1/2)*(A*b - B*a)*(288*A^3*a*b^5 - 288*B
^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6))))/(3*(-a)^(5/6)*b^(7/6)) - (((3^(1
/2)*1i)/2 - 1/2)*(A*b - B*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384
*A*B^3*a^3*b^2) + (((3^(1/2)*1i)/2 - 1/2)*(A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 8
64*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6))))/(3*(-a)^(5/6)*b^(7/6))))*((3^(1/2)*1i)/2 - 1/2)*(A*b - B*a)*2i)/(3
*(-a)^(5/6)*b^(7/6)) + (atan(((((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^
2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) - (((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*(288*A^3*a*b^5 - 28
8*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6)))*1i)/(3*(-a)^(5/6)*b^(7/6)) + (
((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4
- 384*A*B^3*a^3*b^2) + (((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b
^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6)))*1i)/(3*(-a)^(5/6)*b^(7/6)))/((((3^(1/2)*1i)/2 + 1/2)*(A*b - B
*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) - (((3^(1
/2)*1i)/2 + 1/2)*(A*b - B*a)*(288*A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a
)^(5/6)*b^(7/6))))/(3*(-a)^(5/6)*b^(7/6)) - (((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*(x^(1/2)*(96*A^4*b^5 + 96*B^4*
a^4*b + 576*A^2*B^2*a^2*b^3 - 384*A^3*B*a*b^4 - 384*A*B^3*a^3*b^2) + (((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*(288*
A^3*a*b^5 - 288*B^3*a^4*b^2 + 864*A*B^2*a^3*b^3 - 864*A^2*B*a^2*b^4))/(3*(-a)^(5/6)*b^(7/6))))/(3*(-a)^(5/6)*b
^(7/6))))*((3^(1/2)*1i)/2 + 1/2)*(A*b - B*a)*2i)/(3*(-a)^(5/6)*b^(7/6))

________________________________________________________________________________________